In jeffrey-stevens/across-the-lot: Across-the-lot testing of an ELISA plate production run

Find the lowest and highest wells of each plate

oldwd <- getwd()
if ( basename(oldwd) == "Reports" ) {
  setwd("..")
}


source("extreme-wells.R")

Lowest wells

Plates binned by lowest well, ordered by well:

low_table

Lowest wells, ordered by column, then by row:

show( plot_extremes(low_table, order="bycol") )

Clearly wells A12, H12 and A2 stand out.

Lowest wells, ordered by row, then by column:

show( plot_extremes(low_table, order="byrow") )

Plates binned by lowest well, ordered by frequency (top 10 only):

head(arrange(low_table, desc(Freq)), n=10)

Highest wells

Plates binned by highest well, ordered by well:

high_table

Highest wells, ordered by column, then by row:

show( plot_extremes(high_table, order="bycol") )

Highest wells, ordered by row, then by column:

show( plot_extremes(high_table, order="byrow") )

Plates binned by highest well, ordered by frequency (top 10 only):

head(arrange(high_table, desc(Freq)), n=10)

Looks like the bottom outside edge has many of the highest wells.

if ( basename(getwd()) == "Reports" ) {
  setwd(oldwd)
}

jeffrey-stevens/across-the-lot documentation built on Feb. 2, 2020, 1:21 p.m.